home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / util / arjndw / arjndw.exe / ARJNDW / ARJSETUP.WBT < prev    next >
Text File  |  1992-06-24  |  3KB  |  68 lines
  1. ;ARJSETUP Version 1.0 copyright (c) 1992 Joe Newton - June 22 1992
  2. ;Get OK to install
  3. now = AskYesNo("Install","Install The ArjNdw Interface?")
  4. if now == @No then goto end
  5.  
  6. ;Get program info
  7. batchrunner = DirHome()
  8. rearj = FileLocate("rearj.exe")
  9. arj = FileLocate("arj.exe")
  10. sysini = FileLocate("system.ini") ;check for shell
  11. winini = FileLocate("win.ini") ;to associate archives
  12. ask = "@Yes"
  13. shell = IniReadPvt("boot","shell","","system.ini")
  14. shell2 = StrLower("%shell%")
  15. If shell2 != "ndw.exe" then ask = AskYesNo("CheckPoint!","Are you using Norton Desktop as your Windows shell?")
  16. if ask == @No then Message("Next Step...","To Install, open Norton Desktop, choose 'Run' from the Norton Desktop 'File' pulldown menu and enter ARJSETUP.WBT (use full pathname).")
  17. if ask == @No then exit
  18. If arj == "0" then Message("Important!","You may continue with installation, but will need to place ARJ.EXE in your PATH in order to use this program...")
  19. If rearj == "0" then Message("Important!","In order to use the REARJ.EXE portion of this program, you will need to place REARJ.EXE in your PATH.")
  20.  
  21. ;Get the installation directory & find the ending \
  22. :where
  23. from = AskLine("Arj/Ndw Installation...","Directory you are installing FROM (OK=default):","C:\ARJNDW\")
  24. StrTrim("%from%")
  25. sl = StrLen("%from%")
  26. bs = StrScan("%from%","..\",%sl%,@FWDSCAN)
  27. if bs == "0" then from = "%from%\"
  28. ErrorMode(@Off)
  29. dir = DirChange("%from%")
  30. ErrorMode(@ON)
  31. if dir == "0" then message("Problem","Install Directory NOT found.  Check directory path and try again...")
  32. if dir == "0" then goto where
  33.  
  34. ;transfer files
  35. FileCopy("%from%*.WBT","%batchrunner%",@true)
  36. FileCopy("%from%*.PIF","%batchrunner%",@true)
  37. FileCopy("%from%*.ICO","%batchrunner%",@true)
  38. FileCopy("%from%ARJNDW.BAT","%batchrunner%",@true)
  39. FileCopy("%from%ARJNDW.TXT","%batchrunner%",@true)
  40. ErrorMode(@Off)
  41. FileCopy("%winini%","%from%",@true)
  42. FileRename("%from%win.ini","%from%win.jwn")
  43. ErrorMode(@On)
  44.  
  45. ;associate arj archives
  46. :ini
  47. a = IniWrite("extensions","arj","%batchrunner%ARJNDW.BAT") 
  48. a = IniRead("extensions","arj","")
  49. if a != "%batchrunner%ARJNDW.BAT" then message("Problem!","ARJ archives could not be associated. See ARJNDW.TXT.'") 
  50. WinActivate("Norton")
  51. SendKey(`!fw`)
  52. test = WinGetActive()
  53. if test == "New Object Destination" then SendKey(`{DOWN}{ENTER}`)
  54. if test == "New Object Destination" then SendKey(`{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{LEFT}{TAB}`)
  55. if test == "New Object Destination" then SendKey(`ArjNdw{TAB}%batchrunner%ARJNDW.WBT{TAB}{TAB}`)
  56. if test == "New Object Destination" then SendKey(`{TAB}{TAB}{TAB}{TAB}{TAB}{LEFT}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}`)
  57. if test == "New Object Destination" then SendKey(`%batchrunner%ARJNDW.ICO{TAB}{ENTER}{TAB}{TAB}{TAB}{TAB}{ENTER}`)
  58. if test != "New Object Destination" then test = WinGetActive()
  59. if test == "New" then SendKey(`ArjNdw{TAB}%batchrunner%ARJNDW.WBT{TAB}{TAB}`)
  60. if test == "New" then SendKey(`{TAB}{TAB}{TAB}{TAB}{TAB}{LEFT}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}`)
  61. if test == "New" then SendKey(`%batchrunner%ARJNDW.ICO{TAB}{ENTER}{TAB}{TAB}{TAB}{TAB}{ENTER}`)
  62. Message("ArjNdw","You should now have a new program item named ArJNdw. If the installation was NOT successful, please see ARJNDW.TXT.")
  63. message("IMPORTANT!","SAVE YOUR CONFIGURATION or you may have to reinstall the ArjNdw...")
  64. display(3,"Notice","ArjNdw Version 1.0 copyright (c) 1992 Joe Newton")
  65. RunZoom("Nviewer.exe","%from%ARJNDW.TXT")
  66. :end
  67. ;jwnarjndw
  68.